home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / FullSFPut 1.3.cpt / US FullSFPut 1.3 / card_3055.txt < prev    next >
Text File  |  1990-07-21  |  4KB  |  134 lines
  1. -- card: 3055 from stack: in.3
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=174 top=281 right=311 bottom=343
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: FullSFPut
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   Get FullSFPut("Name the file :","My File",empty,10)
  37.   if it ‚↠empty
  38.   then
  39.   show cd fld 2
  40.   put return & it into cd fld 2
  41. end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 16 (field)
  47. -- low flags: 81
  48. -- high flags: 2004
  49. -- rect: left=79 top=123 right=197 bottom=414
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 10
  55. -- style flags: 0
  56. -- line height: 13
  57. -- part name: 
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   hide me
  61. end mouseUP
  62.  
  63.  
  64. -- part contents for card part 1
  65. ----- text -----
  66.  
  67.  
  68.                                                FullSFPut 1.3
  69.  
  70.                                           by Fr√©d√©ric RINALDI
  71.  
  72.  
  73. DESCRIPTION
  74. ------------
  75.   FullSFPut XFCN brings the SFPutFile dialog on the screen, allowing to type a name and to choose destination folder for a new file.
  76.  
  77.  
  78. SYNTAX
  79. --------
  80.         FullSFPut([<prompt>[,<default>[,<initial folder>[,<max len>]]]])
  81.  
  82. PARAMETERS
  83. ------------
  84.    All parameters are optional.
  85.  
  86.    Prompt is a string that will appear as prompt in the disalog.
  87.  
  88.    Default is the default name to show in the edit field of the dialog.
  89.  
  90.    Initial folder is a pathname of the folder hierarchy that will be displayed when the dialog pops. Default value is the current stack's folder.
  91.  
  92.    MaxLen is an integer (>0 and <256) that will limit the length of the input string. A beep will sound as soon as the user tries to override this limit. Default value is 255.
  93.  
  94.    As usual, using "!" and "?" returns online help (resp. about and syntax).
  95.  
  96. USING
  97. -----
  98.    The XFCN returns a two lines string, being respectively the name and the path choosen by the user.
  99.  
  100.    If an error occurs, the XFCN can return :
  101.  
  102.         "Error : Volume not found"
  103.         "Error : Directory not found"
  104.         "Error : I/O Error"
  105.         "Error : Unknown #xx"
  106.         "Error : Not a directory"
  107.         "Error : Out of memory"
  108.         "Error : Couldn't get volume info"
  109.         "Error : Couldn't get working directory info"
  110.         "Error : Couldn't get directory info"
  111.         "Error : Length param must be < 256"
  112.         "Error : Bad length param"
  113.  
  114. HISTORY
  115. -------
  116. 1.3
  117. ‚Ä¢ Use notification manager for HC 2.0
  118.  
  119. 1.2
  120. ‚Ä¢ Added screen refresh when dialog disappears
  121. --------------------------------------------------------------------
  122.  
  123. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  124. Any commercial use must be licensed and aknowledged by the author.
  125.  
  126.                                   ¬© F. Rinaldi - 1989,1990
  127.  
  128. AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111
  129.  
  130. -- part contents for card part 16
  131. ----- text -----
  132.  
  133. My File
  134. Promac 300:Applications:HyperCard:My Externals: